Usenet 1993 July

home *** CD-ROM | disk | FTP | other *** search

/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / misc / volume15 / cardfile / part02 < prev next >

Wrap

Text File | 1990-10-14 | 57.9 KB | 2,337 lines

Newsgroups: comp.sources.misc X-UNIX-From: dplace!pacbell!djl@PacBell.COM from: Dave Lampe <dplace!djl@PacBell.COM> subject: v15i050: cardfile - part 2 of 3 Sender: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc) Posting-number: Volume 15, Issue 50 Submitted-by: Dave Lampe <dplace!djl@PacBell.COM> Archive-name: cardfile/part02 ---- Cut Here and feed the following to sh ---- #!/bin/sh # This is part 02 of cardfile # ============= getkey.c ============== echo 'x - extracting getkey.c (Text)' sed 's/^X//' << 'SHAR_EOF' > 'getkey.c' && X#ifndef lint Xstatic char Sccsid[] = "@(#)getkey.c 3.1 DeltaDate 8/3/90 ExtrDate 10/6/90"; X#endif X X/* GETKEY.C */ X/* This subroutine is used to search an alternate key file X to find records matching the input value. It returns the X offset of the record in the DB file if found, or -1 if X no match was found. X*/ X#include "stdio.h" X#include "cardfile.h" X#include "ascii.h" X Xdiskptr Xgetkey(file, val) XFILE *file; Xchar *val; X{ X static char *match; X char rcd[AKSIZE]; X long atol(); X char *fgets(); X int rc; X X if (val != 0) { /* first time */ X match = val; X fseek(file, 0L, 0); X } X while (fgets(rcd, AKSIZE, file) != NULL) { X if ((rc = keymatch(rcd, match)) == -1) { X break; X } else if (rc == 1) { X return (atol(strchr(rcd, ':')+1)); X } X } X return (-1L); X} SHAR_EOF true || echo 'restore of getkey.c failed' # ============= keymatch.c ============== echo 'x - extracting keymatch.c (Text)' sed 's/^X//' << 'SHAR_EOF' > 'keymatch.c' && X#ifndef lint Xstatic char Sccsid[] = "@(#)keymatch.c 3.1 DeltaDate 8/3/90 ExtrDate 10/6/90"; X#endif X X/* KEYMATCH.C */ X/* This subroutine is used to test if the key in the AK file X** record matches the input value. Two options are supported, X** UNIX style regular expressions or simple matches. If 'BSD_RE', X** 'SYSV_RE', or 'PD_RE' is defined regular expressions are allowed. X** If the input value is enclosed in quotes an exact match is X** required, otherwise upper/lower case is ignored. If simple X** matching is being done, 'NO_RE', an '*' at the end of an unquoted X** string matches everything. X**/ X#include "cardfile.h" X X#ifdef BSD_RE Xextern char *re_comp(); Xextern int re_exec(); X#endif X#ifdef SYSV_RE Xextern char *regcmp(); Xextern char *regex(); X#endif X#ifdef PD_RE X#include <regexp.h> Xextern regexp *regcomp(); Xextern int regexec(); X#endif X Xstatic strlower(); X Xkeymatch(akrcd, val) Xchar *akrcd, *val; X{ X register int vlen; X char convert[256]; X char key[256]; X static int lower; X#ifdef SYSV_RE X static char lastval[256]; X static char *cval; X#endif X#ifdef PD_RE X static char lastval[256]; X static regexp *cval; X#endif X#ifdef BSD_RE X static char lastval[256]; X# endif X#ifdef NO_RE X register char *cp = convert, X *kp = key; X#endif X X#ifdef NO_RE X vlen = strlen(val); X strcpy(convert, val); X if ((*convert == '"' && convert[vlen-1] == '"') X || (*convert == '\'' && convert[vlen-1] == '\'')) { X strcpy(convert, convert+1); X convert[vlen-2] = '\0'; X lower = 0; X } else { X strlower(convert); X lower = 1; X } X strcpy(key, akrcd); X *strchr(key, ':') = '\0'; X if (lower) { X strlower(key); X } X while (*cp != '\0' && (lower == 0 || *cp != '*')) { X if (*cp != *kp) X return(0); X ++cp; X ++kp; X } X if (*cp == '\0' && *kp != '\0') X return(0); X return(1); X#else /* BSD_RE | SYSV_RE | PD_RE */ X if (strcmp(val, lastval) != 0) { /* new pattern */ X vlen = strlen(val); X# ifndef BSD_RE /* SYSV_RE | PD_RE */ X if (cval) /* free last pattern if any */ X free (cval); X# endif X strcpy(lastval, val); X strcpy(convert, val); X if ((*convert == '"' && convert[vlen-1] == '"') X || (*convert == '\'' && convert[vlen-1] == '\'')) { X strcpy(convert, convert+1); X convert[vlen-2] = '\0'; X lower = 0; X } else { X strlower(convert); X lower = 1; X } X# ifdef BSD_RE X if (re_comp(convert) != 0) { X# endif X# ifdef SYSV_RE X if ((cval = regcmp(convert, 0)) == 0) { X# endif X# ifdef PD_RE X if ((cval = regcomp(convert)) == 0) { X# endif X msg("Invalid search pattern"); X return(-1); X } X } X strcpy(key, akrcd); X *strchr(key, ':') = '\0'; X if (lower) { X strlower(key); X } X# ifdef BSD_RE X if (re_exec(key) != 0) { X# endif X# ifdef SYSV_RE X if (regex(cval, key) != 0) { X# endif X# ifdef PD_RE X if (regexec(cval, key) != 0) { X# endif X return(1); X } X return(0); X#endif /* RE */ X} X X Xstatic Xstrlower(str) Xregister char *str; X{ X X while (*str) { X if (*str >= 'A' && *str <= 'Z') X *str = *str - 'A' + 'a'; X ++str; X } X} SHAR_EOF true || echo 'restore of keymatch.c failed' # ============= maint.c ============== echo 'x - extracting maint.c (Text)' sed 's/^X//' << 'SHAR_EOF' > 'maint.c' && X#ifndef lint Xstatic char Sccsid[] = "@(#)maint.c 3.1 DeltaDate 8/3/90 ExtrDate 10/6/90"; X#endif X X/* MAINT.C */ X/* This module is displays the maintenance menu and X controls the execution of the associated routines X*/ X#include "stdio.h" X#include "cardfile.h" X Xchar *mfuncts[] = {"EXIT ", X "DUMP ", X "COMPRESS ", X "REBUILD AK's", X "EXTRACT ", X 0 X }; X#define DUMP 1 X#define COMPRES 2 X#define RBUILD 3 X#define EXTRACT 4 X#define EXIT 0 X X Xmaint(fields, dbname, ak_data) Xstruct Fdata *fields; Xchar *dbname; Xstruct AKdata *ak_data; X{ X char first[SWIDTH]; X int func; X X sprintf(first, "Maintenance functions for %s", dbname); X while ((func = menu(first, mfuncts)) != EXIT) { X switch (func) { X case DUMP: X dumpdb(dbname, ak_data, fields); X continue; X case COMPRES: X compress(dbname); X rbuildak(dbname, ak_data, fields); X continue; X case RBUILD: X rbuildak(dbname, ak_data, fields); X continue; X case EXTRACT: X extract(fields, dbname); X continue; X default: X msg("Illegal function chosen"); X } X } X} SHAR_EOF true || echo 'restore of maint.c failed' # ============= menu.c ============== echo 'x - extracting menu.c (Text)' sed 's/^X//' << 'SHAR_EOF' > 'menu.c' && X#ifndef lint Xstatic char Sccsid[] = "@(#)menu.c 3.1 DeltaDate 8/3/90 ExtrDate 10/6/90"; X#endif X X/* MENU.C */ X/* This subroutine is used to display a menu of commands X** and wait for the user to select one. X** It returns the number of the command selected. X**/ X#include "cardfile.h" X Xmenu(dbname, functs) Xchar *dbname; Xchar **functs; X{ X int func; X char dummy[2]; X struct Sdata *sp, *mscreen; X char *malloc(); X X mscreen = (struct Sdata*)malloc((MAXFLDS+1) * sizeof(struct Sdata)); X sp = mscreen; X do { X sp->S_title = *functs; X sp->S_length = 1; X sp->S_result = dummy; X sp->S_dfault = 0; X sp->S_page = -1; X sp->S_Lrow = -1; X sp->S_Lcol = -1; X sp->S_Drow = -1; X sp->S_Dcol = -1; X sp->S_Dfmt = ""; X ++sp; X } while (*++functs); X sp->S_title = 0; X screen(dbname, mscreen, 0, &func, FALSE); X free((char*)mscreen); X return (func); X} SHAR_EOF true || echo 'restore of menu.c failed' # ============= printdb.c ============== echo 'x - extracting printdb.c (Text)' sed 's/^X//' << 'SHAR_EOF' > 'printdb.c' && X#ifndef lint Xstatic char Sccsid[] = "@(#)printdb.c 3.1 DeltaDate 8/3/90 ExtrDate 10/6/90"; X#endif X X/* PRINTDB.C */ X/* This module format prints the data base in the order requested. X** NOTE: If a record contains multiple values for the key selected, X** it will be printed multiple times. X** Alternativly it will format print an extracted file (see extract.c) X** The formats allowed are: X** %NN - contents of field NN (1-maxfield) X** %NN(form) - contents of field NN in printf '%form' format X** %n - new-line X** %t - tab X** %f - form feed X** %t(NN) - tab to column NN X** %% - % X** NOTE: '.' ends a format specification %1.1 prints the contents of X** field 1 concatenated with a '1'. X**/ X#include "stdio.h" X#include "cardfile.h" X#include "ascii.h" X#include <signal.h> X Xchar out_format[512], ext_file[15]; Xchar out_file[15], out_width[4]; Xstruct Sdata first_screen[] = { X {"Format", 127, out_format, 0, -1, -1, -1, -1, -1, ""}, X {"Extracted File", 14, ext_file, 0, -1, -1, -1, -1, -1, ""}, X {"Output File", 14, out_file, 0, -1, -1, -1, -1, -1, ""}, X {"Output Width", 3, out_width, 0, -1, -1, -1, -1, -1, ""}, X {0, 0, 0, 0, -1, -1, -1, -1, -1, ""} X }; X Xstatic int quit = 0; Xstatic SIGRTN (*old_sig)(); Xstatic FILE *out; Xstatic SIGRTN abort(); X X Xprintdb(fields, dbname) Xstruct Fdata *fields; Xchar *dbname; X{ X char *keys[MAXAK+1]; X char keyv[MAXAK][TSIZE+1]; X int nkeys, i; X struct Fdata *fp; X char aknum[MAXAK]; X int keynum; X char title[SWIDTH]; X char fname[FNSIZE]; X FILE *akfile, *dbfile; X char akrec[AKSIZE+1], dbrec[DBSIZE+1]; X long offset, atol(); X int width; X char *last; X char h_line[1024]; X X sprintf(title, "Print %s data base", dbname); X while (1) { X last = "Enter ? for help."; X screen(title, first_screen, last, 0, FALSE); X if (strcmp(ext_file, "?") == 0) { X strcpy(h_line, "Enter the name of the extract file generated"); X strcat(h_line, " from\nthe maintenance menu. If you leave it"); X strcat(h_line, " blank, the entire\ndata base will be dumped."); X help(h_line); X continue; X } X if (strcmp(out_width, "?") == 0) { X help("Enter the width of the output device, defaults to 80."); X continue; X } X if (*out_width == '\0') { X width = PWIDTH; X } else { X width = atoi(out_width); X } X if (strcmp(out_file, "?") == 0) { X strcpy(h_line, "Enter the name of the output file,"); X strcat(h_line, " defaults to '|lp', the printer."); X help(h_line); X continue; X } X if (*out_file == '\0') { X strcpy(out_file, "|lp"); X } X if (strcmp(out_format, "?") == 0) { X strcpy(h_line, "Enter the output format. All characters will"); X strcat(h_line, " be\nprinted as entered except for % sequences."); X strcat(h_line, "\n\n\t%NN\t - contents of field NN (1-maxfield)"); X strcat(h_line, "\n\t%NN(form) - contents of field NN in"); X strcat(h_line, " printf '%form' format\n"); X strcat(h_line, "\t%n\t- new-line\n"); X strcat(h_line, "\t%t\t- tab\n"); X strcat(h_line, "\t%t(NN)\t- tab to column NN\n"); X strcat(h_line, "\t%f\t- form-feed\n"); X strcat(h_line, "\t%%\t- %"); X help(h_line); X continue; X } X if (*out_format == '\0') { /* not specified, use default */ X fp = fields; X i = 1; X while (fp->F_title[0]) { X sprintf(&out_format[strlen(out_format)], "%s: %%%d%%n", X fp->F_title, i); X ++i; X ++fp; X } X strcat(out_format, "%n%n%n"); X } X break; X } X if (ext_file[0] == '\0') { X msg("No extract specified, entire database will be dumped"); X } X fp = fields; X nkeys = 0; X if (ext_file[0] == '\0') { X while (fp->F_title[0] != '\0') { X if (fp->F_key != 'N') { X sprintf(keyv[nkeys], "%-20s", fp->F_title); X keys[nkeys] = keyv[nkeys]; X aknum[nkeys] = fp->F_key; X ++nkeys; X } X ++fp; X } X keys[nkeys] = "Cancel "; X aknum[nkeys] = '\0'; X ++nkeys; X keys[nkeys] = 0; X sprintf(title, "Print %s data base selected by", dbname); X keynum = menu(title, keys); X if (aknum[keynum] == '\0') { /* cancel */ X return(1); X } X if (*out_file == '|') X out = popen(out_file+1, "w"); X else X out = fopen(out_file, "w"); X if (out == NULL) { X msg("Unable to open output file"); X return(1); X } X X sprintf(fname, "%s%s.ak%c", datadir, dbname, aknum[keynum]); X if ((akfile = fopen(fname, "r")) == NULL) { X msg("Unable to open alternate key file"); X getout(); X } X sprintf(fname, "%s%s.db", datadir, dbname); X if ((dbfile = fopen(fname, "r")) == NULL) { X msg("Unable to open db file"); X getout(); X } X msg(NULL); /* leave the cursor at the bottom */ X fputs("DEL to abort printing", stdout); X old_sig = signal(SIGINT, abort); X X while(!quit && fgets(akrec, AKSIZE, akfile) != NULL) { X offset = atol(strchr(akrec, ':')+1); X if (offset < 0L) X continue; X fseek(dbfile, offset, 0); X if (fgets(dbrec, DBSIZE, dbfile) == NULL) { X msg("Bad offset found"); X continue; X } X if (*dbrec == 'D') /* check for delete flag */ X continue; X if (putrcd(0, dbrec, out, out_format, width, 1) == -1) X break; X } X fclose(akfile); X } else { X if ((dbfile = fopen(ext_file, "r")) == NULL) { X msg("Unable to read extract file"); X return(1); X } X if (*out_file == '|') X out = popen(out_file+1, "w"); X else X out = fopen(out_file, "w"); X if (out == NULL) { X msg("Unable to open output file"); X return(1); X } X msg(NULL); /* leave the cursor at the bottom */ X fputs("DEL to abort printing", stdout); X old_sig = signal(SIGINT, abort); X while(!quit && fgets(dbrec, DBSIZE, dbfile) != NULL) { X if (putrcd(0, dbrec, out, out_format, width, 1) == -1) X break; X } X fclose(dbfile); X } X fclose(dbfile); X if (*out_file == '|') X pclose(out); X else X fclose(out); X signal(SIGINT, old_sig); X if (quit) X return(1); X else X return(0); X} X X Xstatic SIGRTN Xabort() X{ X X fputs("\n\nOUTPUT ABORTED!\n", out); X msg("Dump aborted"); X quit = 1; X} SHAR_EOF true || echo 'restore of printdb.c failed' # ============= putrcd.c ============== echo 'x - extracting putrcd.c (Text)' sed 's/^X//' << 'SHAR_EOF' > 'putrcd.c' && X#ifndef lint Xstatic char Sccsid[] = "@(#)putrcd.c 3.1 DeltaDate 8/3/90 ExtrDate 10/6/90"; X#endif X X/* PUTRCD.C */ X/* This subroutine is used to format print a record X * Input is : X * 1) An optional pointer to the header to be printed X * 2) A pointer to the field structures defining the record X * 3) A pointer to the record X * 4) The output file X * 5) The format of the output X * 6) The width of a line on the output device X * 7) The line spacing X * It returns the number of lines printed. X * The format is specified in "printdb.c" X */ X#include "stdio.h" X#include "cardfile.h" X Xputrcd(first, rcd, file, fmt, width, space) Xchar *first, *rcd; XFILE *file; Xchar *fmt; Xint width, space; X{ X char *fmt_ptr; X char *fld_ptr[MAXFLDS+2]; X char fmtspec[25]; X int i, field; X int max_flds; X int atcol, tocol; X int state; X char *getfield(); X#define COPY 0 X#define ESC 1 X#define FIELD 2 X X if (first != 0) { X fprintf(file, " %s", first); X for (i=0; i<space; i++) X putc('\n', file); X } X rcd[strlen(rcd)-1] = '\0'; /* throw away \n */ X getfield(rcd, ":"); /* throw away flag */ X i = 1; X /* get position of all fields */ X while ((fld_ptr[i++]=getfield(0, ":")) != NULL) ; X max_flds = --i; X /* analyze format string */ X state = COPY; X atcol = 1; X fmt_ptr = fmt; X while (*fmt != '\0') { X switch (state) { X case COPY: X if (*fmt == '%') { X state = ESC; X } else { X putc(*fmt, file); X ++atcol; X } X ++fmt; X break; X case ESC: X if (*fmt == 'n') { /* %n */ X for (i=0; i<space; i++) X putc('\n', file); X atcol = 1; X state = COPY; X } else if (*fmt == 'f') { /* %f */ X putc('\f', file); X atcol = 1; X state = COPY; X } else if (*fmt == 't') { /* %t */ X if (*(fmt+1) == '(') { /* %t(NN) */ X fmt += 2; /* point past '(' */ X tocol = atoi(fmt); X if (tocol < atcol) { X fmt_error(fmt_ptr, fmt-fmt_ptr); X return(-1); X } X while (atcol++ < tocol) { /* space to correct column */ X putc(' ', file); X } X /* move past column specifier in format */ X while (*fmt >'0' && *fmt <= '9') { X ++fmt; X } X } else { /* %t */ X putc('\t', file); X atcol += 8 - (atcol-1)%8; X } X state = COPY; X } else if (*fmt == '%') { /* %% */ X state = COPY; X ++atcol; X putc('%', file); X } else if (*fmt >= '0' && *fmt <= '9') { /* %NN */ X state = FIELD; X field = atoi(fmt); X if (field > max_flds) { X fmt_error(fmt_ptr, fmt-fmt_ptr); X return(-1); X } X while (*(fmt+1) >= '0' && *(fmt+1) <= '9') X ++fmt; X } else { X fmt_error(fmt_ptr, fmt-fmt_ptr); X return(-1); X } X ++fmt; X break; X case FIELD: X strcpy(fmtspec, "%s"); X if (*fmt == '(') { /* special format */ X ++fmt; X strncpy(fmtspec, fmt, (i = strchr(fmt, ')') - fmt)); X fmtspec[i] = '\0'; X fmt += i + 1; X if(putfield(file, fld_ptr[field], fmtspec, &atcol, width) == -1) X return(-1); X } else { /* default string format */ X if(putfield(file, fld_ptr[field], fmtspec, &atcol, width) == -1) X return(-1); X if (*fmt == '.') { X ++fmt; X } X } X state = COPY; X break; X } X } X return(0); X} X X X/* X * Print a field in default format X */ Xputfield(outfile, fld, outfmt, colptr, width) XFILE *outfile; Xchar *fld; Xchar *outfmt; Xint *colptr; Xint width; X{ X int cleft; /* number of characters left on line */ X char format[64]; X char outstr[512]; X double atof(); X long atol(); X X if (fld == NULL) X return(0); X cleft = width - *colptr; X while (strlen(fld) > cleft) { /*break field if too long for 1 line */ X if (*(fld+cleft) == ' ' || *(fld+cleft) == ',' || cleft <= 10) { X if (cleft <= 10) X cleft = width - *colptr; /* reset to use full line */ X sprintf(format, "%%.%ds\n", cleft); X fprintf(outfile, format, fld); X fld += cleft; X cleft = width; X *colptr = 1; X continue; X } X --cleft; X } X switch (outfmt[strlen(outfmt)-1]) { X case 's': X sprintf(outstr, outfmt, fld); X break; X case 'f': X case 'e': X case 'E': X case 'g': X case 'G': X sprintf(outstr, outfmt, atof(fld)); X break; X case 'd': X case 'u': X case 'o': X case 'x': X case 'X': X sprintf(outstr, outfmt, atoi(fld)); X break; X default: X printf("unknown format '%s'\n", outfmt); X return(-1); X } X *colptr += strlen(outstr); X fprintf(outfile, "%s", outstr); X return(0); X} X X Xfmt_error(fmt, col) Xchar *fmt; Xint col; X{ X char str[200]; X X sprintf(str, "format='%s' Error near column %d", fmt, col); X msg(str); X sleep(4); X} SHAR_EOF true || echo 'restore of putrcd.c failed' # ============= rawio.c ============== echo 'x - extracting rawio.c (Text)' sed 's/^X//' << 'SHAR_EOF' > 'rawio.c' && X#ifndef lint Xstatic char Sccsid[] = "@(#)rawio.c 3.1 DeltaDate 8/3/90 ExtrDate 10/6/90"; X#endif X X/* RAWIO.C */ X X#include "ascii.h" X#include "cardfile.h" X Xstatic int echo_f = 1; X Xint Xrawgetchar() X{ X int ch; X X ch = getchar(); X if (ch == DEL) { X msg("Again to quit"); X if ((ch = getchar()) == DEL) X getout(); X msg(""); X resetcursor(); X } X if (echo_f) X rawputchar(ch); X return (ch); X} X Xrawputchar(ch) Xchar ch; X{ X putchar(ch); X} X Xecho() X{ X echo_f = 1; X} X Xnoecho() X{ X echo_f = 0; X} SHAR_EOF true || echo 'restore of rawio.c failed' # ============= rbuildak.c ============== echo 'x - extracting rbuildak.c (Text)' sed 's/^X//' << 'SHAR_EOF' > 'rbuildak.c' && X#ifndef lint Xstatic char Sccsid[] = "@(#)rbuildak.c 3.1 DeltaDate 8/3/90 ExtrDate 10/6/90"; X#endif X X/* RBUILDAK.C */ X/* This module will rebuild the alternate key files. X** It requires only the DEF and DB files. It must be X** used after a compress, if the DB file has been edited, X** or if the DEF file is changed affecting the key fields. X*/ X#include "stdio.h" X#include "cardfile.h" X Xrbuildak(dbname, ak_data, fields) Xchar *dbname; Xstruct AKdata *ak_data; Xstruct Fdata *fields; X{ X FILE *dbfile, *akfile; X char fname[FNSIZE], rec[DBSIZE]; X long offset, ftell(); X char *buffer, *malloc(); X X while (ak_data->A_fldnum >= 0) { X sprintf(fname, "%s%s", datadir, ak_data->A_akname); X if ((akfile=fopen(fname, "w")) == NULL) {; /* truncate file */ X msg("Unable to write the database"); X getout(); X } X fclose(akfile); X ++ak_data; X } X sprintf(fname, "%s%s.db", datadir, dbname); X dbfile = fopen(fname, "r"); X buffer = malloc(BUFSIZE); X if (buffer == NULL) { X msg("Unable to allocate buffer space"); X getout(); X } X *buffer = '\0'; X while ((offset = ftell(dbfile)) >= 0L && X fgets(rec, DBSIZE, dbfile) != NULL) { X if (feof(dbfile)) X break; X rec[strlen(rec)-1] = '\0'; /* truncate new-line */ X buildak(dbname, strchr(rec,':')+1, offset, fields, buffer); X } X fclose(dbfile); X writeak(dbname, buffer); X free(buffer); X} SHAR_EOF true || echo 'restore of rbuildak.c failed' # ============= screen.c ============== echo 'x - extracting screen.c (Text)' sed 's/^X//' << 'SHAR_EOF' > 'screen.c' && X#ifndef lint Xstatic char Sccsid[] = "@(#)screen.c 3.2 DeltaDate 8/11/90 ExtrDate 10/6/90"; X#endif X X/* SCREEN.C */ X/* This subroutine is used to format a screen and handle X** input to it. It expects as input: X** 1. A pointer to the title of the screen X** 2. A pointer to an array of structures describing X** each field. X** 3. An (optional) pointer to a footer line. X** 4. An (optional) pointer to an integer to contain X** the field number in which the pointer was left. X** 5. A flag which if TRUE makes the screen display only. X** It returns the number of fields modified. X** The external character lastchar will return the last charater input. X** X** The field definition structures contain: X** 1. A character pointer to the title of the field X** 2. The maximum length of the field X** 3. A pointer to the variable to hold the result X** 4. An (optional) pointer to the default value X** 5. An (optional) row for the title X** 6. An (optional) column for the title X** 7. An (optional) row for the data X** 8. An (optional) column for the data X** 9. An (optional) format for the data X** X** It allows the user to enter: X** 1. CR End of Input X** 2. -> Move right X** 3. <- Move left X** 4. TAB Move to next field, wrap around to top X** 5. BACK-TAB Move to previous field, wrap to the bottom field X** 6. LINE-ERASE Erase to end of field X** 7. CHAR-INSERT Insert a blank and move everything right X** 8. CHAR-DELETE Delete a character and move everything left X** 9. DOWN-ARROW Same as TAB X** 10. UP-ARROW Same as BACK-TAB X** 11. F2 Same as CHAR-INSERT X** 12. F3 Same as CHAR-DELETE X** 13. F4 Same as LINE-ERASE X** 14. F5 Go to the first field on the next page of a X** multi-page form X** 15. F6 Go to the previous page X*/ X X#include "cardfile.h" X#include "stdio.h" X#include "ascii.h" X#include <ctype.h> X#include <signal.h> X#ifdef TERMCAP X#include <termio.h> X#define tparm(a, line, col) tgoto(a, col, line) X#define putp(a) tputs(a, 12, mputc) X#else X#include <curses.h> X#include <term.h> X#endif X#ifdef BSD_TTY X#include <sgtty.h> X#endif X#ifdef BSD_SIG X#include <setjmp.h> Xjmp_buf jbuf; X#endif X X#ifdef TERMCAP Xextern char *tgoto(), *getenv(); Xextern char X *clear_screen, X *clr_eol, X *enter_dim_mode, X *enter_blink_mode, X *exit_attribute_mode, X *keypad_xmit, X *keypad_local, X *cursor_address, X *cursor_left, X *cursor_right; Xint mputc(); X#endif X X Xextern struct cchar *cc_head; Xextern char func_label[]; X Xchar lastchar; X Xstatic int flen; Xstatic char *cp; Xstatic int changes; Xstatic int fmt_msg = FALSE; Xstatic struct SFdata { X int f_page; X int f_tline; X int f_tcol; X char *f_title; X int f_dline; X int f_dcol; X char *f_dfmt; X int f_length; X char *f_result; X char *f_dfault; X } scr_fields[MAXFLDS+1]; Xstatic struct SFdata *fp, *first_field; Xstatic int page_num; Xstatic int read_only; /* true if not to be modified */ X XSIGRTN ctl_timeout(); Xstatic int timedout; X Xint Xscreen(first, vardata, last, left, ro) Xchar *first, *last; Xstruct Sdata *vardata; Xint *left; Xint ro; X{ X int inp; X char t_last[81]; X char mbuf[81]; X register struct cchar *sp; X struct SFdata *last_field; X X read_only = ro; X#if DEBUG > 0 X fprintf(stderr,"screen: called first=%s\n",first); X#endif X /* X * Build the scr_fields table X */ X scr_fields[0].f_page = 1; X scr_fields[0].f_tline = 2; X for (fp = scr_fields ; vardata->S_title != NULL ; ++vardata , ++fp) { X if (vardata->S_Lrow != -1) { X fp->f_tline = vardata->S_Lrow; X } X if (vardata->S_Lcol != -1) { X fp->f_tcol = vardata->S_Lcol; X } else { X fp->f_tcol = 4; X } X if (vardata->S_Drow != -1) { X fp->f_dline = vardata->S_Drow; X } else { X fp->f_dline = fp->f_tline; X } X if (vardata->S_Dcol != -1) { X fp->f_dcol = vardata->S_Dcol; X } else { X if (vardata->S_length > 1) { X fp->f_dcol = fp->f_tcol + strlen(vardata->S_title) + 6; X if (vardata->S_length > 99) X fp->f_dcol += 2; X else if (vardata->S_length > 9) X fp->f_dcol += 1; X } else { X fp->f_dcol = fp->f_tcol + strlen(vardata->S_title) + 3; X } X } X fp->f_title = vardata->S_title; X fp->f_length = vardata->S_length; X fp->f_result = vardata->S_result; X fp->f_dfault = vardata->S_dfault; X fp->f_dfmt = vardata->S_Dfmt; X /* check if too much for this screen */ X if ( (fp->f_tline + (fp->f_dcol + fp->f_length + SWIDTH-1)/SWIDTH) X > SLENGTH - 4) { X (fp+1)->f_page = fp->f_page + 1; X (fp+1)->f_tline = 2; X } else { X (fp+1)->f_page = fp->f_page; X (fp+1)->f_tline = fp->f_tline + 1 X + (fp->f_dcol + fp->f_length + SWIDTH-1)/SWIDTH; X } X } X fp->f_page = fp->f_tline = 0; X#if DEBUG > 0 X fprintf(stderr, "%-4s %-4s %-10.10s %-5s %-4s\n", X "", "", "", "data", "data"); X fprintf(stderr, "%-4s %-4s %-10.10s %-5s %-4s\n", X "page", "line", "title", "start", "size"); X for (fp = scr_fields ; fp->f_page != 0 ; ++fp) { X fprintf(stderr, "%4d %4d %-10.10s %5d %4d\n", X fp->f_page, fp->f_tline, fp->f_title, fp->f_dcol, fp->f_length); X } X#endif X /* X * Format the screen X */ X changes = 0; X noecho(); X /* Loop for all pages */ X for (page_num = 1 , first_field = scr_fields X ; first_field->f_page != 0 ; ) { X#if DEBUG > 1 X fprintf(stderr,"screen: outer loop, page_num=%d\n",page_num); X#endif X putp(clear_screen); /* clear screen */ X putp(tparm(cursor_address, 0, 9)); X fputs(first, stdout); /* display title */ X /* Loop for each field on 1 page */ X for (fp = first_field ; fp->f_page == page_num ; ++fp) { X#if DEBUG > 1 X fprintf(stderr,"screen: inner loop, page_num=%d, line=%d\n", X page_num, fp->f_tline); X#endif X putp(tparm(cursor_address, fp->f_tline, fp->f_tcol-1)); X putp(enter_dim_mode); X if (fp->f_length > 1) { X putp(tparm(cursor_address, fp->f_tline, fp->f_tcol)); X printf("%s(%d):", fp->f_title, fp->f_length); X } else { X putp(tparm(cursor_address, fp->f_tline, fp->f_tcol)); X printf("%s:", fp->f_title); X } X putp(exit_attribute_mode); X if (fp->f_dfault != 0) { X strcpy(fp->f_result, fp->f_dfault); X putp(tparm(cursor_address, fp->f_dline, fp->f_dcol)); X fputs(fp->f_dfault, stdout); X flen = strlen(fp->f_dfault); X } else { X flen = 0; X fp->f_result[0] = '\0'; X } X putchar('\n'); X for (flen=strlen(fp->f_result); flen <= fp->f_length; flen++) X fp->f_result[flen] = '\0'; X } X /* check if too much for this screen */ X if (fp->f_page != 0) { X sprintf(t_last, "%-64s[CONT]", last?last:""); X } else { X strcpy(t_last, last?last:""); X } X /* Write instructions if any */ X if (*t_last != '\0') { X putp(tparm(cursor_address, MSGLINE, 9)); X fputs(t_last, stdout); X } X putp(tparm(cursor_address, SLENGTH-1, 0)); X fputs(func_label, stdout); X fp = first_field; X cp = fp->f_result; X resetcursor(); X flen = fp->f_length; X X /* X * Process the user input X */ X while ((inp = rawgetchar())) { X lastchar = inp; X if (inp == '\n' || inp == '\r') { X /* check format first */ X if (! read_only && fp->f_dfmt[0] && fp->f_result[0]) { X if (fmt_chk(fp->f_result, fp->f_dfmt) != 0) { X fmt_msg = TRUE; X sprintf(mbuf, "Invalid format, should be %.40s", fp->f_dfmt); X msg(mbuf); X rawputchar(BEL); X cp = fp->f_result; X flen = fp->f_length; X resetcursor(); X continue; X } else { X if (fmt_msg) { X msg(""); X fmt_msg = FALSE; X } X } X X } X if (fmt_msg) { X msg(""); X fmt_msg = FALSE; X } X break; X } X /* X * Check for control key sequence X */ X timedout = FALSE; X signal(SIGALRM, ctl_timeout); X alarm(1); X sp = cc_head; X while (sp) { X if (inp == sp->ch) { X inp = process_ctl(sp); X break; X } X sp = sp->alt; X } X alarm(0); X signal(SIGALRM, SIG_DFL); X if (sp != NULL) { /* control character match found */ X if (inp == -1) /* page switch */ X break; X if (read_only && timedout) X return(0); X continue; X } X if (read_only) { X return(0); X } X /* X * Process a normal character X */ X /* Control characters are illegal (also catches illegal controls) */ X if (! isascii(inp) || iscntrl(inp)) { X rawputchar(BEL); X continue; X } X rawputchar(inp); /* echo character */ X *cp++ = inp; X ++changes; X if (--flen <= 0) /* reached end of field */ X nextfield(scr_fields); X } /* End of INPut Loop */ X#if DEBUG > 0 X fprintf(stderr,"screen: end of outer loop, inp=%d\n",inp); X#endif X last_field = fp; X if (inp == '\n' || inp == '\r') X break; X } X X echo(); X if (left != NULL) X *left = last_field - scr_fields; X#ifdef DEBUG X fprintf(stderr,"screen exit, left=%d, changes=%d\n", X (left ? *left : -1), changes); X#endif X return changes; X} X X Xint Xprocess_ctl(ccp) Xstruct cchar *ccp; X{ X int ch; X X /* check for end of control sequence */ X if (ccp->action) { X return((*ccp->action)(scr_fields)); X } X#ifdef BSD_SIG X if (setjmp(jbuf) != 0) { X /* return from interupt */ X return(0); X } X#endif X if ((ch = rawgetchar()) == EOF) { X if (! read_only) X rawputchar(BEL); X return(0); X } X lastchar = ch; X ccp = ccp->next; X while (ccp) { X if (ch == ccp->ch) X return(process_ctl(ccp)); X ccp = ccp->alt; X } X rawputchar(BEL); X return(0); /* illegal sequence */ X} X XSIGRTN Xctl_timeout() X{ X timedout = TRUE; X#ifdef BSD_SIG X longjmp(jbuf, 1); X#endif X return; X} X X/* X * These are the action routines to manage the fields on the screen. X * Each routine is called from the getchar loop above when an action key X * is read. The routine is passed the screen data structure. X * X * Globally they use X * fp pointer to the current entry in the fields table (SFtable) X * cp character position, i.e., character in which next input X * is to be placed X * flen length of input field X * changes flag if screen has been modified X * page_num the page of fields displayed X * first_field the first field displayed on the screen X */ X X/*ARGSUSED*/ Xnextpage(field_tbl) Xstruct SFdata field_tbl[]; X{ X char mbuf[81]; X X /* see if format needs to be checked */ X if (fp->f_dfmt[0] && fp->f_result[0]) { X if (fmt_chk(fp->f_result, fp->f_dfmt) != 0) { X fmt_msg = TRUE; X sprintf(mbuf, "Invalid format, should be %.40s", fp->f_dfmt); X msg(mbuf); X rawputchar(BEL); X cp = fp->f_result; X flen = fp->f_length; X resetcursor(); X return(0); X } else { X if (fmt_msg) { X msg(""); X fmt_msg = FALSE; X } X } X } X if (fmt_msg) { X msg(""); X fmt_msg = FALSE; X } X X page_num++; X for (first_field = field_tbl ; X first_field->f_page != page_num && first_field->f_page != 0 ; X ++first_field) X ; X if (first_field->f_page == 0) { /* wrap around */ X page_num = 1; X first_field = field_tbl; X } X#if DEBUG > 0 X fprintf(stderr, "nextpage: page=%d, first_field=%d\n", X page_num, first_field-field_tbl); X#endif X return(-1); /* force termination of input loop */ X} X X Xprevpage(field_tbl) Xstruct SFdata field_tbl[]; X{ X register struct SFdata *t_fp; X char mbuf[81]; X X /* see if format needs to be checked */ X if (fp->f_dfmt[0] && fp->f_result[0]) { X if (fmt_chk(fp->f_result, fp->f_dfmt) != 0) { X fmt_msg = TRUE; X sprintf(mbuf, "Invalid format, should be %.40s", fp->f_dfmt); X msg(mbuf); X rawputchar(BEL); X cp = fp->f_result; X flen = fp->f_length; X resetcursor(); X return(0); X } else { X if (fmt_msg) { X msg(""); X fmt_msg = FALSE; X } X } X } X if (fmt_msg) { X msg(""); X fmt_msg = FALSE; X } X X if (--page_num < 1) { /* wrap around */ X for (t_fp = field_tbl ; (t_fp+1)->f_page != 0 ; ++t_fp) X ; X page_num = t_fp->f_page; X } X for (first_field = field_tbl ; X first_field->f_page != page_num && first_field->f_page != 0 ; X ++first_field) X ; X#if DEBUG > 0 X fprintf(stderr, "prevpage: page=%d, first_field=%d\n", X page_num, first_field-field_tbl); X#endif X return(-1); /* force termination of input loop */ X} X X X/*ARGSUSED*/ Xnextfield(dummy) Xstruct SFdata dummy[]; X{ X register int page; X char mbuf[81]; X X /* see if format needs to be checked */ X if (fp->f_dfmt[0] && fp->f_result[0]) { X if (fmt_chk(fp->f_result, fp->f_dfmt) != 0) { X fmt_msg = TRUE; X sprintf(mbuf, "Invalid format, should be %.40s", fp->f_dfmt); X msg(mbuf); X rawputchar(BEL); X cp = fp->f_result; X flen = fp->f_length; X resetcursor(); X return(0); X } else { X if (fmt_msg) { X msg(""); X fmt_msg = FALSE; X } X } X } X if (fmt_msg) { X msg(""); X fmt_msg = FALSE; X } X X page = fp->f_page; X ++fp; X if (fp->f_page != page) { /* wrap-around */ X fp = first_field; X } X cp = fp->f_result; X flen = fp->f_length; X resetcursor(); X return(0); X} X X X/*ARGSUSED*/ Xprevfield(dummy) Xstruct SFdata dummy[]; X{ X register int page; X char mbuf[81]; X X /* see if format needs to be checked */ X if (fp->f_dfmt[0] && fp->f_result[0]) { X if (fmt_chk(fp->f_result, fp->f_dfmt) != 0) { X fmt_msg = TRUE; X sprintf(mbuf, "Invalid format, should be %.40s", fp->f_dfmt); X msg(mbuf); X rawputchar(BEL); X cp = fp->f_result; X flen = fp->f_length; X resetcursor(); X return(0); X } else { X if (fmt_msg) { X msg(""); X fmt_msg = FALSE; X } X } X } X if (fmt_msg) { X msg(""); X fmt_msg = FALSE; X } X X if (cp == fp->f_result) { /* at beginning of field */ X if (fp == first_field) { /* wrap around */ X page = fp->f_page; X while ((++fp)->f_page == page) X ; X } X --fp; X } X cp = fp->f_result; X flen = fp->f_length; X resetcursor(); X return(0); X} X X Xgoright(field_tbl) Xstruct SFdata field_tbl[]; X{ X register int pos; X X if (--flen <= 0) X nextfield(field_tbl); X if (*cp == '\0') X *cp = ' '; X cp++; X pos = cp - fp->f_result + fp->f_dcol; X if (pos % SWIDTH == 0) { X resetcursor(); X } else { X putp(cursor_right); X } X return(0); X} X X Xgoleft(field_tbl) Xstruct SFdata field_tbl[]; X{ X register int pos; X X if (++flen > fp->f_length) { X prevfield(field_tbl); X } else { X --cp; X pos = cp - fp->f_result + fp->f_dcol; X if (pos % SWIDTH == SWIDTH - 1) { X resetcursor(); X } else { X putp(cursor_left); X } X } X return(0); X} X X X/*ARGSUSED*/ Xferase(dummy) Xstruct Sdata *dummy; X{ X register char *cpt; X register int flent; X X cpt = cp; X flent = flen; X while (flent-- > 0) { X *(cpt++) = '\0'; X rawputchar(' '); X } X resetcursor(); X ++changes; X return(0); X} X X X/*ARGSUSED*/ Xdelchar(dummy) Xstruct Sdata *dummy; X{ X strcpy(cp, cp+1); X fputs(cp, stdout); X rawputchar(' '); X resetcursor(); X ++changes; X return(0); X} X X X/*ARGSUSED*/ Xinschar(dummy) Xstruct Sdata *dummy; X{ X mvright(cp+1, cp); X *cp = ' '; X fputs(cp, stdout); X resetcursor(); X ++changes; X return(0); X} X X Xmvright(d, s) Xchar *d, *s; X{ X register int slen; X X slen = strlen(s); X while (slen-- >= 0) X *(d+slen) = *(s+slen); X return(0); X} X X Xresetcursor() X{ X register int flent; X X flent = cp - fp->f_result + fp->f_dcol; X putp(tparm(cursor_address, fp->f_dline + flent/SWIDTH, flent%SWIDTH)); X} X X#ifdef BSD_TTY Xstatic struct sgttyb instty, outstty; X#else /* SYSV_TTY */ Xstatic struct termio instty, outstty; X#endif X X Xvoid Xsetupscr() X{ X X setbuf(stdout, NULL); X setbuf(stdin, NULL); X#ifdef BSD_TTY X ioctl(0, TIOCGETP, &outstty); X instty.sg_ispeed = outstty.sg_ispeed; X instty.sg_ospeed = outstty.sg_ospeed; X instty.sg_erase = outstty.sg_erase; X instty.sg_kill = outstty.sg_kill; X instty.sg_flags = RAW; X ioctl(0, TIOCSETP, &instty); X#else /* SYSV_TTY */ X ioctl(0, TCGETA, &outstty); X instty.c_iflag = outstty.c_iflag; X instty.c_oflag = outstty.c_oflag; X instty.c_cflag = outstty.c_cflag; X instty.c_lflag = 0; /* turn off icanon, echo */ X instty.c_line = outstty.c_line; X instty.c_cc[VINTR] = outstty.c_cc[VINTR]; X instty.c_cc[VQUIT] = outstty.c_cc[VQUIT]; X instty.c_cc[VERASE] = outstty.c_cc[VERASE]; X instty.c_cc[VKILL] = outstty.c_cc[VKILL]; X instty.c_cc[VMIN] = 1; X instty.c_cc[VTIME] = 0; X instty.c_cc[6] = outstty.c_cc[6]; X instty.c_cc[7] = outstty.c_cc[7]; X ioctl(0, TCSETAW, &instty); X#endif X#ifdef TERMINFO X setupterm((char*)0, 1, (int*)0); X#else X setterm(getenv("TERM")); X#endif X setupkeys(); X putp(keypad_xmit); X} X XSIGRTN Xgetout() X{ X X putp(keypad_local); X putp(clear_screen); X#ifdef BSD_TTY X ioctl(0, TIOCSETP, &outstty); X#else /* SYSV_TTY */ X ioctl(0, TCSETAW, &outstty); X#endif X exit(0); X} X SHAR_EOF true || echo 'restore of screen.c failed' # ============= setupkeys.c ============== echo 'x - extracting setupkeys.c (Text)' sed 's/^X//' << 'SHAR_EOF' > 'setupkeys.c' && X#ifndef lint Xstatic char Sccsid[] = "@(#)setupkeys.c 3.1 DeltaDate 8/3/90 ExtrDate 10/6/90"; X#endif X X/* SETUPKEYS.C */ X/* This module sets up all terminal specific key sequences. X** It sets up the a linked list that translates function keys to X** actions and sets up the label for the function keys. X** X** It requires definitions of X** key_right move cursor right X** key_left move cursor left X** key_backspace " X** key_tab move forward thru fields X** key_down " X** key_btab move backward thru fields X** key_up " X** key_eol clear to end of field X** key_dc delete character under cursor X** key_ic move characters from the cursor on one space right X** key_f2 same as key_ic X** key_f3 same as key_dc X** key_f4 same as key_eol X** key_f5 next page X** key_f6 previous page X**/ X X# include <curses.h> X#ifndef TERMCAP X# include <term.h> X#endif X#ifdef DEBUG X#include <stdio.h> X#endif X#include "cardfile.h" X X/* X** Indices into "keys" structure X**/ X#define k_BS 0 X#define k_LEFT 1 X#define k_RIGHT 2 X#define k_EOL 3 X#define k_DC 4 X#define k_IC 5 X#define k_TAB 6 X#define k_UP 7 X#define k_DOWN 8 X#define k_F2 9 X#define k_F3 10 X#define k_F4 11 X#define k_F5 12 X#define k_F6 13 X#define k_BTAB 14 X Xint sfunct(), goright(), goleft(), nextfield(), prevfield(), ferase(); Xint delchar(), inschar(), nextpage(), prevpage(); Xunsigned sleep(); Xchar *malloc(); Xchar *memset(); Xchar *strstr(); X X/* translation of terminfo/termcap names to action routines */ Xstruct keys { X char *terminfo_name; X char *string; X int (*func)(); X}; Xstatic struct keys keys[20] = { X {"key_backspace", 0, goleft}, X {"key_left", 0, goleft}, X {"key_right", 0, goright}, X {"key_eol", 0, ferase}, X {"key_dc", 0, delchar}, X {"key_ic", 0, inschar}, X {"tab", 0, nextfield}, X {"key_up", 0, prevfield}, X {"key_down", 0, nextfield}, X {"key_f2", 0, inschar}, X {"key_f3", 0, delchar}, X {"key_f4", 0, ferase}, X {"key_f5", 0, nextpage}, X {"key_f6", 0, prevpage}, X#ifdef key_btab X {"key_btab", 0, prevfield}, X#endif X { 0, 0, 0} X}; X X#ifdef TERMCAP Xchar *clear_screen, X *clr_eol, X *enter_dim_mode, X *enter_blink_mode, X *exit_attribute_mode, X *keypad_xmit, X *keypad_local, X *cursor_address, X *cursor_left, X *cursor_right; X#endif X Xstruct cchar *cc_head; X Xchar func_label[256]; X Xsetupkeys() X{ X register struct keys *kp; X register char *so_on, *so_off; X register char *cp; X register struct cchar *ccp; X int slen; X#ifdef TERMCAP X static char tc_buf[1024]; X static char *tc_ptr = tc_buf; X static char tc_out[256]; X static char *out_ptr = tc_out; X extern char *tgetstr(), *tgoto(); X extern char *getenv(); X#endif X X#ifdef TERMCAP X if (tgetent(tc_buf, (cp = getenv("TERM"))) != 1) { X printf(stderr, "Unable to get terminal settings for %s\n", X (cp ? cp : "<NULL>")); X exit(1); X } X if ((keys[k_BS].string = tgetstr("kb", &out_ptr)) == 0) { X keys[k_BS].string = "\b"; X } X if ((keys[k_LEFT].string = tgetstr("kl", &out_ptr)) == 0) { X keys[k_LEFT].string = ""; X } X if ((keys[k_RIGHT].string = tgetstr("kr", &out_ptr)) == 0) { X keys[k_RIGHT].string = ""; X } X if ((keys[k_EOL].string = tgetstr("kE", &out_ptr)) == 0) { X keys[k_EOL].string = ""; X } X if ((keys[k_DC].string = tgetstr("kD", &out_ptr)) == 0) { X keys[k_DC].string = ""; X } X if ((keys[k_IC].string = tgetstr("kI", &out_ptr)) == 0) { X keys[k_IC].string = ""; X } X if ((keys[k_TAB].string = tgetstr("ta", &out_ptr)) == 0) { X keys[k_TAB].string = "\t"; X } X if ((keys[k_UP].string = tgetstr("ku", &out_ptr)) == 0) { X keys[k_UP].string = ""; X } X if ((keys[k_DOWN].string = tgetstr("kd", &out_ptr)) == 0) { X keys[k_DOWN].string = ""; X } X if ((keys[k_F2].string = tgetstr("k2", &out_ptr)) == 0) { X keys[k_F2].string = ""; X } X if ((keys[k_F3].string = tgetstr("k3", &out_ptr)) == 0) { X keys[k_F3].string = ""; X } X if ((keys[k_F4].string = tgetstr("k4", &out_ptr)) == 0) { X keys[k_F4].string = ""; X } X if ((keys[k_F5].string = tgetstr("k5", &out_ptr)) == 0) { X keys[k_F5].string = ""; X } X if ((keys[k_F6].string = tgetstr("k6", &out_ptr)) == 0) { X keys[k_F6].string = ""; X } X if ((keys[k_BTAB].string = tgetstr("kB", &out_ptr)) == 0) { X keys[k_BTAB].string = ""; X } X X if ((clear_screen = tgetstr("cl", &out_ptr)) == 0) { X clear_screen = ""; X } X if ((cursor_address = tgetstr("cm", &out_ptr)) == 0) { X cursor_address = ""; X } X if ((enter_dim_mode = tgetstr("mh", &out_ptr)) == 0) { X enter_dim_mode = ""; X } X if ((exit_attribute_mode = tgetstr("me", &out_ptr)) == 0) { X exit_attribute_mode = ""; X } X if ((cursor_right = tgetstr("nd", &out_ptr)) == 0) { X cursor_right = ""; X } X if ((cursor_left = tgetstr("le", &out_ptr)) == 0) { X cursor_left = "\b"; X } X if ((keypad_xmit = tgetstr("ks", &out_ptr)) == 0) { X keypad_xmit = ""; X } X if ((keypad_local = tgetstr("ke", &out_ptr)) == 0) { X keypad_local = ""; X } X if ((clr_eol = tgetstr("ce", &out_ptr)) == 0) { X clr_eol = ""; X } X if ((enter_blink_mode = tgetstr("mb", &out_ptr)) == 0) { X if ((enter_blink_mode = tgetstr("so", &out_ptr)) == 0) X enter_blink_mode = ""; X } X#else /* TERMCAP */ X setupterm((char*)0, 1, (int*)0); X keys[k_BS].string = key_backspace; X keys[k_LEFT].string = key_left; X keys[k_RIGHT].string = key_right; X keys[k_EOL].string = key_eol; X keys[k_DC].string = key_dc; X keys[k_IC].string = key_ic; X keys[k_TAB].string = tab; X keys[k_UP].string = key_up; X keys[k_DOWN].string = key_down; X keys[k_F2].string = key_f2; X keys[k_F3].string = key_f3; X keys[k_F4].string = key_f4; X keys[k_F5].string = key_f5; X keys[k_F6].string = key_f6; X# ifdef key_btab X keys[k_BTAB].string = key_btab; X# endif X#endif /* TERMCAP */ X X/* X * Set up function key label string X */ X#ifdef TERMCAP X so_on = tgetstr("mr", &out_ptr); X so_off = tgetstr("me", &out_ptr); X if (so_on == 0 || strlen(so_on) == 0) { X so_on = tgetstr("se", &out_ptr); X so_off = tgetstr("so", &out_ptr); X } X#else /* TERMCAP */ X so_on = enter_reverse_mode; X so_off = exit_attribute_mode; X if (so_on == 0 || strlen(so_on) == 0) { X so_on = enter_standout_mode; X so_off = exit_standout_mode; X } X#endif /* TERMCAP */ X sprintf(func_label, "%s%8s%s %s%8s%s %s%8s%s %s%8s%s ", X so_on, "", so_off, X so_on, (keys[k_F2].string[0]?"insert ":""), so_off, X so_on, (keys[k_F3].string[0]?"delete ":""), so_off, X so_on, (keys[k_F4].string[0]?"clr fld ":""), so_off); X sprintf(func_label+strlen(func_label), "%s%8s%s %s%8s%s %s%8s%s %s%8s%s", X so_on, (keys[k_F5].string[0]?"next pg":""), so_off, X so_on, (keys[k_F6].string[0]?"prev pg":""), so_off, X so_on, "", so_off, X so_on, "", so_off); X X/* X** Set defaults for some keys X**/ X if (keys[k_BS].string == 0 || strlen(keys[k_BS].string) == 0) X keys[k_BS].string = "\b"; X if (keys[k_TAB].string == 0 || strlen(keys[k_TAB].string) == 0) X keys[k_TAB].string = "\t"; X X cc_head = (struct cchar*)malloc(sizeof(struct cchar)); X memset(cc_head, '\0', sizeof(struct cchar)); X X for (kp = keys; kp->terminfo_name; ++kp) { X#ifdef DEBUG X fprintf(stderr, "Capname=%s,string='", kp->terminfo_name); X for (cp=kp->string ; cp != 0 && *cp ; cp++) X fputs(unctrl(*cp), stderr); X fprintf(stderr,"'\n"); X#endif X if (kp->string == 0 || strlen(kp->string) == 0) { X#ifdef DEBUG X fprintf(stderr, "Control sequence for \"%s\" doesn't exist\n", X kp->terminfo_name); X#endif X continue; X } X /* X * Throw away pad string '$<nn>' X */ X if ((cp = strstr(kp->string, "$<")) != NULL) { X /* num of chars to delete */ X slen = strchr(cp, '>') - cp + 1; X if (slen > 0) { X strcpy(cp, cp+slen); X } X } X X for (cp = kp->string, ccp = cc_head; *cp; ) { X if (ccp->ch == '\0') X ccp->ch = *cp; X if (ccp->ch == *cp) { X if (*(cp+1) == '\0') { /* end of string, add action */ X if (ccp->action != NULL) { X fprintf(stderr, "Control string conflict\n"); X break; X } else { /* add it */ X ccp->action = kp->func; X break; X } X } X /* not end of string */ X if (ccp->next == NULL) { X ccp->next = (struct cchar*)malloc(sizeof(struct cchar)); X memset(ccp->next, '\0', sizeof(struct cchar)); X } X ccp = ccp->next; X ++cp; X continue; X } X if (ccp->alt != NULL) { X ccp = ccp->alt; X continue; X } X /* allocate new alternate */ X ccp->alt = (struct cchar*)malloc(sizeof(struct cchar)); X memset(ccp->alt, '\0', sizeof(struct cchar)); X ccp = ccp->alt; X } X X#if DEBUG > 1 X dumptables(cc_head); X#endif X } X#if DEBUG == 1 X dumptables(cc_head); X dumpcmd(); X#endif X} X X X/* strstr String version of strchr */ X/* Return pointer to 1st occurance of s2 in s1 */ X/* Return NULL if not found */ Xchar X*strstr(s1, s2) Xregister char *s1, *s2; X{ X register int len; X X len = strlen(s2); X while (*s1) X { X if (strncmp(s1, s2, len) == 0) X return(s1); X else X ++s1; X } X return(NULL); X} X X X#ifdef DEBUG Xstatic Xdumptables(head) Xstruct cchar *head; X{ X dtable(head); X if (head->alt) X dumptables(head->alt); X if (head->next) X dumptables(head->next); X} X X Xstatic Xdtable(ccp) Xregister struct cchar *ccp; X{ X X fprintf(stderr, "%d:\tch='%s'\n", ccp-cc_head+1, unctrl(ccp->ch)); X fprintf(stderr, "\tnext=%d", ccp->next?ccp->next-cc_head+1:0); X fprintf(stderr, "\talt=%d", ccp->alt?ccp->alt-cc_head+1:0); X if (ccp->action == goright) { X fprintf(stderr, "\taction=goright\n"); X } else if (ccp->action == goleft) { X fprintf(stderr, "\taction=goleft\n"); X } else if (ccp->action == nextfield) { X fprintf(stderr, "\taction=nfield\n"); X } else if (ccp->action == prevfield) { X fprintf(stderr, "\taction=pfield\n"); X } else if (ccp->action == ferase) { X fprintf(stderr, "\taction=ferase\n"); X } else if (ccp->action == delchar) { X fprintf(stderr, "\taction=delchar\n"); X } else if (ccp->action == inschar) { X fprintf(stderr, "\taction=inschar\n"); X } else if (ccp->action == nextpage) { X fprintf(stderr, "\taction=nextpage\n"); X } else if (ccp->action == prevpage) { X fprintf(stderr, "\taction=prevpage\n"); X } else { X fprintf(stderr, "\n"); X } X} X Xstatic Xdumpcmd() X{ X X fprintf(stderr, "clear_screen='"); X putctlstr(clear_screen); X fprintf(stderr,"'\n"); X fprintf(stderr, "cursor_address='"); X putctlstr(cursor_address); X fprintf(stderr,"'\n"); X fprintf(stderr, "enter_dim_mode='"); X putctlstr(enter_dim_mode); X fprintf(stderr,"'\n"); X fprintf(stderr, "exit_attribute_mode='"); X putctlstr(exit_attribute_mode); X fprintf(stderr,"'\n"); X fprintf(stderr, "cursor_right='"); X putctlstr(cursor_right); X fprintf(stderr,"'\n"); X fprintf(stderr, "cursor_left='"); X putctlstr(cursor_left); X fprintf(stderr,"'\n"); X fprintf(stderr, "keypad_xmit='"); X putctlstr(keypad_xmit); X fprintf(stderr,"'\n"); X fprintf(stderr, "keypad_local='"); X putctlstr(keypad_local); X fprintf(stderr,"'\n"); X fprintf(stderr, "clr_eol='"); X putctlstr(clr_eol); X fprintf(stderr,"'\n"); X fprintf(stderr, "enter_blink_mode='"); X putctlstr(enter_blink_mode); X fprintf(stderr,"'\n"); X} X X Xstatic Xputctlstr(str) Xregister char *str; X{ X X for ( ; str != 0 && *str ; str++) X fputs(unctrl(*str), stderr); X} X#endif SHAR_EOF true || echo 'restore of setupkeys.c failed' # ============= updak.c ============== echo 'x - extracting updak.c (Text)' sed 's/^X//' << 'SHAR_EOF' > 'updak.c' && X#ifndef lint Xstatic char Sccsid[] = "@(#)updak.c 3.1 DeltaDate 8/3/90 ExtrDate 10/6/90"; X#endif X X/* UPDAK.C */ X/* These subroutines are used to update the alternate key files X** after the DB file has been changed. X*/ X X#include "stdio.h" X#include "ascii.h" X#include "cardfile.h" X#include <ctype.h> X Xchar *bufend; X Xbuildak(dbname, recd, addr, fp, buffer) Xchar *dbname, *recd; Xlong addr; Xstruct Fdata *fp; Xchar *buffer; X{ X char *fld, *fld2; X char temp[AKSIZE]; X char *getfield(); X X if (*buffer == '\0') /* first time */ X bufend = buffer; X for ( ; fp->F_title[0] != '\0' ; ++fp) { X if ((fld = getfield(recd, ":")) == 0) X continue; X recd += strlen(fld) + 1; X if (fp->F_key != 'N' && *fld != '\0') { /* AK record required */ X while((fld2 = getfield(fld, fp->F_seps)) != NULL) { X fld = 0; X sprintf(temp, "%c:%s:%ld\n", fp->F_key, fld2, addr); X /* check if buffer full */ X if (bufend+strlen(temp)+1 >= buffer+BUFSIZE) { X writeak(dbname, buffer); X } X strcpy(bufend, temp); X bufend += strlen(temp); X } X } X } X} X X Xwriteak(dbname, buffer) /* sort the lines in buffer then merge */ Xchar *dbname; /* them in with the appropriate AK file*/ Xchar *buffer; X{ X char *line[400]; X int nlines, i; X char fnum, akname[FNSIZE]; X FILE *akfile; X char *strchr(); X int compar(); X void qsort(); X X nlines = 0; X bufend = buffer; /* reset end of buffer pointer */ X while(*buffer != '\0') { /* Build file to be sorted */ X line[nlines++] = buffer; X buffer = strchr(buffer, '\n') + 1; X if (buffer == (char*)1) /* test for missing '\n' */ X break; X } X if (nlines == 0) /* no records to add */ X return; X qsort((char*)line, (unsigned)nlines, sizeof(int), compar); X fnum = ' '; X for (i=0; i<nlines; ++i) { X if (*(line[i]) != fnum) { /* check for same file */ X if (fnum != ' ') { /* not first time */ X fclose(akfile); X } X fnum = *line[i]; X sprintf(akname, "%s%s.ak%c", datadir, dbname, fnum); X if((akfile = fopen(akname, "a+")) == NULL) { X msg(strcat("Unable to open file ", akname)); X getout(); X } X } X fwrite(line[i]+2, strchr(line[i], '\n')-line[i]-2, 1, akfile); X putc('\n', akfile); X } X fclose(akfile); X} X X Xcompar(str1, str2) Xchar **str1, **str2; X{ X return(keycmp(*str1, *str2, AKSIZE)); X} X Xkeycmp(s1, s2, len) Xregister char *s1, *s2; Xregister int len; X{ X X#ifdef BSD_STRING Xregister char c1, c2; X while (1) { X if (isupper(*s1)) X c1 = tolower(*s1); X else X c1 = *s1; X if (isupper(*s2)) X c2 = tolower(*s2); X else X c2 = *s2; X if (c1 != c2 || len-- == 0) X break; X if (c1 == '\0') X return(0); X ++s1; X ++s2; X } X return(c1 - c2); X#else X while (tolower(*s1) == tolower(*s2) && len--) { X if (*s1 == '\0') X return(0); X ++s1; X ++s2; X } X return(tolower(*s1) - tolower(*s2)); X#endif X} SHAR_EOF true || echo 'restore of updak.c failed' # ============= ascii.h ============== echo 'x - extracting ascii.h (Text)' sed 's/^X//' << 'SHAR_EOF' > 'ascii.h' && X#ifndef lint Xstatic char ID_ascii[] = "@(#)ascii.h 3.1 DeltaDate 8/3/90 ExtrDate 10/6/90"; X#endif X X/* ASCII.H */ X/* This defines ASCII control characters as octal numbers */ X X#define NUL '\000' X#define SOH '\001' X#define STX '\002' X#define ETX '\003' X#define EOT '\004' X#define ENQ '\005' X#define ACK '\006' X#define BEL '\007' X#define BS '\010' X#define HT '\011' X#define LF '\012' X#define VT '\013' X#define FF '\014' X#define CR '\015' X#define SO '\016' X#define SI '\017' X#define DLE '\020' X#define DC1 '\021' X#define DC2 '\022' X#define DC3 '\023' X#define DC4 '\024' X#define NAK '\025' X#define SYN '\026' X#define ETB '\027' X#define CAN '\030' X#define EM '\031' X#define SUB '\032' X#define ESC '\033' X#define FS '\034' X#define GS '\035' X#define RS '\036' X#define NL '\037' X#define SP '\040' X#define DEL '\177' SHAR_EOF true || echo 'restore of ascii.h failed' # ============= cardfile.h ============== echo 'x - extracting cardfile.h (Text)' sed 's/^X//' << 'SHAR_EOF' > 'cardfile.h' && X#ifndef lint Xstatic char ID_cardfile[] = "@(#)cardfile.h 3.1 DeltaDate 8/3/90 ExtrDate 10/6/90"; X#endif X X/* CARDFILE.h */ X#include "string.h" X X#define SWIDTH 80 /* width of screen line */ X#define SLENGTH 24 /* length of screen */ X#define PWIDTH 80 /* width of printer line */ X#define MSGLINE (SLENGTH-2) /* screen message line */ X#define DBSIZE 1024 /* max size of record in DB file */ X#define AKSIZE 270 /* max size of record in AK file */ X#define MAXFLDS 15 /* max number of fields in record */ X#define FNSIZE 128 /* max size of a file name */ X#define PLENGTH 66 /* number of lines per page on printer */ X#define MAXAK 15 /* max number of AK files */ X#define FLDLEN 256 /* max length of one field */ X#define TSIZE 20 /* max length of field title */ X#define BUFSIZE (2*1024) /* size of buffer used to build AK files */ X#define MAXKEYS 500 /* maximium keys on one find screen */ X#define MAXFMT 128 /* maximum length of a format string */ X#ifndef TRUE X# define TRUE 1 X# define FALSE 0 X#endif X Xtypedef long diskptr; X Xstruct Sdata { /* structure to describe a screen field */ X char *S_title; X int S_length; X char *S_result; X char *S_dfault; X int S_page; X int S_Lrow; X int S_Lcol; X int S_Drow; X int S_Dcol; X char *S_Dfmt; X}; X Xstruct Fdata { /* structure to define a data-base field */ X char F_title[TSIZE+1]; X char F_required; X int F_length; X char F_key; X char F_seps[6]; X char F_page; /* What screen page this field will appear on */ X int F_Lrow; /* The screen field label row address */ X int F_Lcol; /* The screen field label column address */ X int F_Drow; /* The screen field data row address */ X int F_Dcol; /* The screen field data column address */ X char F_Dfmt[MAXFMT+1]; /* The screen field data format (fmt_chk) */ X}; X Xstruct AKdata { /* structure to hold Alternate Key file info */ X int A_fldnum; X char A_akname[FNSIZE+1]; X}; X Xstruct cchar { /* strings received from terminal */ X char ch; X int (*action)(); X struct cchar *next; X struct cchar *alt; X}; X Xextern char datadir[]; XSIGRTN getout(); Xvoid exit(), free(); Xunsigned sleep(); Xchar *tparm(); SHAR_EOF true || echo 'restore of cardfile.h failed' # ============= library.def ============== echo 'x - extracting library.def (Text)' sed 's/^X//' << 'SHAR_EOF' > 'library.def' && Xlibrary.db:8 XTitle:0:;:Y:65 XType:1::N:35 XAuthor:2:;:Y:37 XKeywords:3:,:N:130 XPublisher:N::N:20 XDate:N::N:10 XCost:N::N:6 XComments:N::N:250 X4 X0:library.ak0 X1:library.ak1 X2:library.ak2 X3:library.ak3 X%% X5:1:::::^1[89][0-9][0-9]$ X6:1:::::^[0-9]*.[0-9][0-9]$ SHAR_EOF true || echo 'restore of library.def failed' true || echo 'restore of library.db failed' echo End of part 2, continue with part 3 exit 0